home *** CD-ROM | disk | FTP | other *** search
/ Web Designer 98 (Professional) / WebDesigner 1.0.iso / cgi2 / download.cgi-s=rand_image&c=txt&f=rand_image.pl < prev    next >
Perl Script  |  1996-06-03  |  2KB  |  46 lines
  1. #! /usr/local/bin/perl
  2. ##############################################################################
  3. # Basic Random Image Displayer  Version 1.2                                  # 
  4. # Copyright 1996 Matt Wright    mattw@worldwidemart.com                      #
  5. # Created 7/1/95                Last Modified 7/20/95                        #
  6. # Scripts Archive at:           http://www.worldwidemart.com/scripts/        #
  7. ##############################################################################
  8. # COPYRIGHT NOTICE                                                           #
  9. # Copyright 1996 Matthew M. Wright  All Rights Reserved.                     #
  10. #                                                                            #
  11. # Basic Random Image may be used and modified free of charge by anyone so    #
  12. # long as this copyright notice and the comments above remain intact.  By    #
  13. # using this this code you agree to indemnify Matthew M. Wright from any     #
  14. # liability that might arise from it's use.                                  #  
  15. #                                                                            #
  16. # Selling the code for this program without prior written consent is         #
  17. # expressly forbidden.  In other words, please ask first before you try and  #
  18. # make money off of my program.                                              #
  19. #                                                                            #
  20. # Obtain permission before redistributing this software over the Internet or #
  21. # in any other medium.  In all cases copyright and header must remain intact.#
  22. ##############################################################################
  23. # Necessary Variables
  24.   $basedir = "http://your.host.xxx/images/";
  25.   @files = ("first_image.gif","test.gif","random.gif","neat.jpg");
  26.  
  27. # Options
  28.   $uselog = 0; # 1 = YES; 0 = NO
  29.         $logfile = "/home/mattw/public_html/image/pics/piclog";
  30.  
  31. # Done
  32. ##############################################################################
  33.  
  34. srand(time ^ $$);
  35. $num = rand(@files); # Pick a Random Number
  36.  
  37. # Print Out Header With Random Filename and Base Directory
  38. print "Location: $basedir$files[$num]\n\n";
  39.  
  40. # Log Image
  41. if ($uselog eq '1') {
  42.     open (LOG, ">>$logfile");
  43.     print LOG "$files[$num]\n";
  44.     close (LOG);
  45. }
  46.